function mandelbrot(iter:integer);
var
  pi,qi,po,qo,pot:single;
  p,q,k,dib,xdots,ydots:integer;
  x,y,xx,yy:double;
const
  xmin=-2.5;
  xmax=1.5;
  ymin=-1.5;
  ymax=1.5;
  r=4;
begin
  xdots:=getmaxx+1;
  ydots:=getmaxy+1;
  pi:=(xmax-xmin)/(xdots-1);
  qi:=(ymax-ymin)/ydots-1);
  for p:=0 to xdots-1 do begin
    for q:=0 to ydots-1 do begin
      po:=xmin+p*pi;
      qo:=ymin+q*qi;
      xx:=0;
      yy:=0;
      dib:=0;
      for k:=1 to iter do begin
        x:=xx*xx-yy*yy+po;
        y:=2*xx*yy+qo;
        xx:=x;
        yy:=y;
        if x*x+y*y>r do begin
          dib:=1;
          break;
        end;
      end;
      if dib=0 then putpixel(p,ydots-1-q,15);
    end;
  end;
end;
